﻿Public Class VentaNegocio

    Public Function listar() As Collection
        Dim dao As New VentaDAO
        Return dao.listar()
    End Function

    Public Function insertar(ByVal idPedido As Integer, ByVal idPaquete As Integer, ByVal fecha_venta As Date, ByVal fecha_instalacion As Date, ByVal fecha_garantia As Date) As Venta

        Dim omen As New Venta()
        omen.idpedido = idPedido
        omen.idpaquete = idPaquete
        omen.fecha_venta = fecha_venta
        omen.fecha_instalacion = fecha_instalacion
        omen.fecha_garantia = fecha_garantia

        Dim dao As New VentaDAO
        Return dao.insertar(omen)
    End Function

End Class
